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EDTSCHMCHKCC = check for control C 1 =138% 23:47:39 VA 
1 1984 1 I 


2:22:22 D 


Dw 
*“™M 


Di OSRCICHMCHKCC. BLI; ft (1 


—— 


:C 


; 1 $9) ZTITLE ‘EDTSC Saag yy - check for control C' 

3 $ 0 j MODULE EDTSCHMCHKCC ( ' Check for control C¢ 

3 00 IDENT = ‘'V04=-000' ! File: CHMCHKCC.BLI Edit: REM1016 

3 4 0004 d= 

; 2 bbe ! BEGIN 

: 4 st 4 ! J SosegnceneneesecenserenenenesanseneeeoneeoeseesoneeneenTeneesenseenoeoseTeTe 

4 ‘® * | 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

: 10 0010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: ie Bat) : ‘* ALL RIGHTS RESERVED. * 

$ ; * 

; ig $O18 1 Ie aig SOF TWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

3 14 0014 1 !* Y IN ACCORDANCE WITH THE TERMS U LICENSE AND WITH THE * 
eo a 0015 1 !® ONELUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
B4 16 bo$ 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 17 001 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * } 
: + Bale : :* TRANSFERRED. * 

3 it ® 

, 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $6 o0ss : 7 CORPORATION. * 

3 ' ® 

3 24 Bose 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; 26 0026 1 !* “ 

ee 4 4 0027 1 !« * 

: 34 34 LF eRe RARER AREA AAA ETE AAA AAA REE 

: ,-34 
; $9 6086 1 

$6 (Coa 0031 1 !4+ | 
5 $6 ite 1 | FACILITY: EDT -=- The DEC Standard Editor 

7 s 0033 1! 

; 34 0034 1 i ABSTRACT: 

co. ae 0035 1! 
: 36 0036 This module checks to see if a CTRL/C has been typed. | 
$ ; sit ! ENVIRONMENT: Runs at any access mode - AST reentrant 
; rt Reo ' AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

; 62 0042 1 | MODIFIED BY: 

s 65 0043 1! 

: «44 0044 1 ! 1-001 - Original. ot 04-Feb-1981. This module wes piceeted by 

> 6 0045 1! extracti ng routine EDTSSCHK_ Cc from mony, ¢ ANGE .BLI. 

: 46 0046 1 | 1-002 - Regularize headers and remove control Cc necking since we intend to 

: 67 0047 1: re-do it to support Journal ing JBS 27-Feb-1981 

: 48 0048 1 | 1-003 - Fix module name. JBS 81 | 
; «649 0049 1 | 1-004 - Revise journal ing to support control C. JBS 22-Jun-1981 
> & 0050 1 ! 1-005 = Add logic for re over tog curing con control C. JBS 18-Dec-1981 
yr 3 0051 1 ! 1-006 = Debug control ¢ journaling $s aye 

3 26 B036 1 ' 1-007 - Change names of control C data. JBS 29-Dec-1981 

2 0053 1! 1-008 - Use two words for control C counters. JBS 30-Dec-1981 

; 654 0054 1 1- - Print the ‘working’ message from this routine. a 13-Jan-1982 

oe 0055 1 ' 1-010 = Use symbols instead of magic numbers for control C journaling. JBS 24-May-1982 

; 2$ 0056 1 31) = Change the format of th work ing message. SMB 28-Jun 2 

es 2 0057 1 ! 1-012 - Figure out whether the Tournal uffer Should be flushed. STS 28-Sep-1982 


EDTSCHMCHKCC EDTSCHMCHKCC = check for control ¢ i$-s2 -Sep-1984 t $335 7:39 VAX=11 Bliss-32_ V4.0-74 Page 2, 
v04-000 14-Sep-1984 12:22:22 DISKSVMSMASTER:CEDT.SRCJCHMCHKCC. BLI;7 = (1) | 


: 8 28 1 ! 1-013 ~ Don't destroy the cursor position, it is now being maintained accurately. JBS 07-Oct-1982 

; 9 1 ! 1-014 = Clear EDTS$G_ wt after rent tog ? erasing the working message, so 

; Oo 1! we do not spend all our time print ng the work tos »message on slow terminals. JBS 07-0ct-1982 
3; $$) 1 1! 1-015 - pov gift a is eDTEs6 pul jou” Bee thin t Ad order incregent of 
. =’? 86 1} Ti_ to just af er the low order "Tee ement. It wasn't 

; o7 o } } ae set and ther re, “C handling durring. 7RECOVERS didnt t work 

3; 6 065 1 ! 1-016 - oved the above EDT$$G_PUT_JOU beet] Now, we st it if 

; +4 1: ED G_TIN_OBUFPOS GEQ-JOULMAX. REM 10-Oct-19 

i or 006 : ; 


| 


ERT eemncncce 


SONOS UNS 


ODONOULS WR 


ae a 4 


EDTSCHMCHKCC = check for control C¢ 
Declarations 
54 } SSBTTL ‘Declarations’ 
071 1°! TABLE OF CONTENTS: 
Ore 1! 
0735 1 
313 i REQUIRE 'EDTSRC: TRAROUNAM'; 
8 14 1 FORWARD ROUTINE 
515 1 EDTSSCHK_CC; 
pate 1 
0517 1! 
bee 1 ! INCLUDE FILES: 
1 1! 
0520 1 
0521 1 REQUIRE ‘EDTSRC:EDTREQ'; 
06 $ 1 
0657 1! 
0658 1 ! MACROS: 
0659 1! 
0660 1! NONE 
0661 1! 
066 1 ! EQUATED SYMBOLS: 
0663 1! 
0664 1 
0665 1 LITERAL 
06 1 JOU_MAX = 20 
0667 1 WORR_COL = 26; 
0668 1 
0669 1! 
0670 1 ! OWN STORAGE: 
0671 1! 
067 1! NONE 
0673 1! 
0674 1 ! EXTERNAL REFERENCES: 
0675 : 


In the routine 
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1228 08=1 98 $3:55:33 DISKSVMEMASTERSCEDT SRCSICHMCHKCC.BLIG? 


! Check to see if a CTRL/C has been typed 
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HMCHKCC = check for control C 18-5 -1984 23:47:39 A 
CHK_CC = check for control C 14-Sep-19 4 $3333: 2 D1 


RZSBTTL "EDTSSCHK_CC = check for control C' 
GLOBAL ROUTINE EDTSSCHK_CC ! Check for control C 


EDTSCHMCHKCC - - 
3 da Sa 3 iss 32 v4.0-7 Page 4 


l 4 a 
MASTER: CEDT.SRCJCHMCHKCC.BLI;1 (3) | 


SAN CUS 
en 


—— 
Oo 
FUN OCONAOULSWN—OWOO~ Mw 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


This routine checks to see if a CTRL/C has been typed. 

It is called pang enough that the response to typing a control C 

ig reasonably fast. It keeps track of how often it has been called 

pence sae last journal record was written so it can do the same during 
very. 


This routine is also responsible for printing the ‘working’ message. 

The flag EDT$$G_SECOND is set once a Second 4 an AST. 1? it is Set 

this routine clears it and either prints or erases the ‘working’ message. 
FORMAL PARAMETERS: | 

NONE | 
IMPLICIT INPUTS: 

EDTSSA_FMT_WRRUT 

EDTS$$G_MESSAGE_LINE 
DT sse_RCOV_AUD 
$$G_CC_CNT1_LO 

C_CNT1_H] 


$$G_CC_ 6 
s36 CC_CNT2_LO 
$ 


WAAAY NPOPONONUPYD  OS O 


Coooo°o[0oo 4 
Wr 


WN OS ODNOVEWN | O ODOM WN S(O OONAOUE 
mmmmmmmemn 


D 
DT 
DT 
DT 
DT 
DT 
DT 


So 


. | 
$$G_SETOND | 
EDTS$$G_WORKCOUNT | 
IMPLICIT OUTPUTS: | 


ROUTINE VALUE: 


0 no control C typed 
1 control C was typed 


SIDE EFFECTS: 
May print or erase the ‘working’ message. 
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EDTSCHMCHKCC EDTSCHMCHKCC = check for control C 15-Sep-1984 23:47:39 VAX-11 Bliss-32 V4.0-74 Page 5. E 
04-000 EDTSSCHK_CC = check for control C 12-88-18 $3'35: 2 DISKSVMSMASTER:CEDT.S CScHMCHKCC.BLIe4” (3) vt 
: 164 734 BEGIN : 
3 365 735 : 
: 166 7 $ =, ; 
3; 7 EDTS$G_PUT_JOU ! flag to put journal buffer ; 
: 168 738 EDT$$G_TIN-OBUFPOS, ' Position in journal output buffer : 
> 169 739 EDTSSA_FMT_WRRUT ! Address of output formatter ; 
: 170 740 EDTS$$G_MESSAGE LINE i Working on this Line + 1 ; 
; 171 74} EDT$$G_CC : VOLATILE, i 1 = a control C_has been typed ; 
; \v¢ 3544 EDTS$$G_CC_CNT1_LO, ! Counts number of ‘'no control C's’ returned. 
ee 074 EDTS$$G_CC_CNT1_HI, ! High half of the above 
: 174 0744 53h +4 SL TE ' Loaded with value from control C record 
3; 175 tok EDTS$G_CC_CNT2_HI, ! High half of the above 
; 176 746 EDTS$G_CC_FLAG, ' 1 = a control C record was read or written 
s iW? 0747 EDTS$G_RCOV_MOD, ! 1 = /RECOVER 
: 178 0748 EDTS$G_SECOND : VOLATILE, ' Set once a second 
: 1” 14 EDTS$$G_WORKCOUNT; ! Counter to support the ‘working’ message 
; «6181 0751 EXTERNAL ROUTINE 
> 182 oP 26 EDTSS$JOU_PUTREC, 
: 183 075 EDTSS$TI_QRSTR, ! String format for working 
; «(186 0754 EDTSSOUT_FMTBUF, ' Output format buffer to terminal 
; «185 0755 EDTS$SC_ERATOEOL, ! Erase to end of current Line 
; «4186 0756 EDTSS$SC_POSCSIF, ' Absolute cursor positioning 
: «187 0757 EDTSSMSG_TOSTR ! Write out the working message 
3 is B36 3 EDTS$TI_FLUSHJOUFI : NOVALUE; ! Write a record on the journal file 
: 190 0760 LOCAL : : 
3 13) 158 2 FORMAT_ROUTINE; ! Save the format routine entered with 
; 198 b7e8 MESSAGES ((WORKING)); 
3: 194 0764 } f 
: 4195 0765 ! If a second has passed since we were last here, print or erase the 
: 4196 0766 ! ‘working’ message. 
: 197 0767 te 
; 198 0768 
; 199 0769 IF (.EDTS$G_SECOND NEQ 0) 
; 200 0770 THEN 
; 201 144 BEGIN 
3 3 ore EDTSS$G_WORKCOUNT = .EDT$$G_WORKCOUNT + 1; 
; a 077 FORMAT_ROUTINE = .EDTSSA_FAT WRRUT; 
; 04 0774 EDTSSA_FMT_WRRUT = EDTSSTI_WRSTR; 
$ 44 o773 EDTSSSC_POSCSIF (.EDTSSG_MESSAGE_LINE + 1, WORK_COL); 
; 44 O77 IF .EDTS$G_WORKCOUNT THEN EDTSSMSG_TOSTR (EDTS_WORKING) ELSE EDTS$SC_ERATOEOL (); 
5 09 444 EDTSSOUT_FMTBUF (); 
s 10 780 EDTSSA_FAT_WRRUT = .FORMAT_ROUTINE; 
3 11 781 EDTS$G_SECOND = 0; 
3 i 7 § END; 
3 1 7 
: 14 7 '¢ 
: 215 785 ! If we are in recovery mode, use the counters to 
3 18 f : simulate typing a control € at the right point. 
: 8 7 
: 21 7 IF .EDT$$G_RCOV_MOD 
; 220 07 THEN 


BEGIN 
EDT$S$TI_FLUSHJOUFI (X%C'C'); 
EDTSSG_UC_FLAG = 1; 


RETURN (1); 
END; 
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EDTSCHMCHKCC EDTSCHMCHKCC = check for control C 1-52 1984 23:47:39 VAX-11 Bliss-32 V4.0-74 Page 
ba EDTSSCHK_CC = check for control C 127808-1 3b #3:55:33 NEEKSVMGMASTERSCEDT SRCTCHMCHKCC BLIn}? (35 
1 791 BEGIN 5 
¢ 138 '¢ $ 
? a If EDTS$G_CC_FLAG is zero, there has been no control C record. 3 
5 13? IF “EDTSSG_CCLFLAG THEN 3 
© 38 1+ : 
3 ia: If the counters match, it is time to return a control C. 3 
9 0800 IF ((-EDTS$6_CC_CNT1_LO EQL .EDTS$G_CC_CNT2_LO) AND (.EDTSS$G_CC_CNT1_HI EQL .EDT$$G_CC_CNT2_HI)) | ; 
¢ 0808 BEGIN ; 
0 EDTS$G_PUT_JOU = 1; 3 
0804 RETURN (1); 3 
5 0805 END; $ 
pane END 3 
7 080 END ; 
38 0808 ELSE | 3 
39 0809 BEGIN 3 
40 0810 1+ 3 
41 0811 ! We are not recovering. ; 
eg oaig !- 3 
4 081 IF_.EDTS$G_CC | ; 
44 0814 | 3 
45 0815 BEGIN : 
46 0816 '¢ 3 
7 0817 ! A control C was typed. Write out a control C record in case 3 
§ : oats } we must recover to this point, unless we have already written it. 3 
§ ° ttt EDTS$G_PUT_JOU = 1; ! indicate we must do a put : 
2 ¢ O8¢2 IF (.EDT$$G_CC_FLAG EQL 0) | : 
2 082 THEN 
254 0824 
255 0825 
256 0826 
0827 
0828 
+i 4 
0830 
0831 
tt 
083 
0834 
08 
08 
$8 
8 
08 


NIWA noronononononofrononONUW® & BUMS UB BEEBE ES BWW BU RU BE 


7 

8 

9 

0 

; END; 

'¢ 

64 ! Keep track of the number of times we are called but no control C€ has | 
65 35 ! been typed; that is, count the number of times we return 0. This 
66 36 i number will be written to the journal file later, when and if we see a 

67 37 ! control C, so that we can read it into the second counter on recovery, | 
os Hs ,_and thus return 1 at the same point in EDT's execution. 
76 Obes EDTS$G_CC_CNT1_LO = .EDTS$G_CC_CNT1_LO + 1; 
7 Bag IF (.EDTS$G_CC_CNT1_LO EQL CC_CTR_MAX) 
7 84 THEN 

7 844 BEGIN 

75 sei EDTS$G_CC_CNT1_LO = 0; 

2 46 EDT$$G_CC-CNTI-HI = .EDTS$G_CC_CNT1_HI + 1; | 
7 084 EDT$$G_PUT_JOU™= 1; 


vee-o00 


} 
EDTSCHMCHKCC = check for control C 18-43 -Sep-1984 t 93:82 33 VAX-11 Bliss-32 V og Page 7) 
EDTSSCHK_CC = check for control C¢ 14-Sep-1984 DISK AC SVNGH STER: a Osae CHMCHKCC.BLI;1 (3) | 
§ ASSERT (.EDTS$G_CC_CNT1_HI LEQ CC_CTR_MAX); | 
oS 4 | 
£26 i check to see if the journal buffer should be written out and 
S27 ‘ the control-c counter restarted | 
0855 
0628 IF (.EDT$$G_TIN_OBUFPOS GEQ JOU_MAX) THEN EDT$$G_PUT_JOU = 1; | 
0838 RETURN (0); | 
te END; ! of EDTSSCHK_CC | 
-TITLE EDTSCHMCHKCC EDTSCHMCHKCC = check for control C | 
IDENT %V04-000\ | 
-EXTRN EDTS$$G_PU I -)0u. EDT$$G_TIN_OBUF POS 
.EXTRN EDTSSA_FM ant 
-EXTRN EDTS$$G “MESSAGE NE 
“EXTRN EDISSG-CC. EDISSG-CC_CNT1_LO | 
-EXTRN EDT$$G_CC_CNT1_HI~ 
"EXTRN EDTS$$G~ =CCIENTg" LO | 
-EXTRN EDT$$G_CC_CNTO_HI | 
-EXTRN EDTS$$G_CC-FLAG, EDT$$G_RCOV_MOD 
EXTRN EDT$$G_SETOND, EDT$$G_QORKCOUNT 
EXTRN EDT$$JOU_PUTRE 
EXTRN EDTSS$TI_QRSTR, EDTSSOUT_FMTBUF 
EXTRN EDTS$$SC~ERATOEOL 
"EXTRN EDTS$SC~POSCSIF | 
EXTRN EDT$SMSG_TOSTR, EDT$$T1I_FLUSHJOUF I 
EXTRN EDT$_WORRING, EDTSSINTER_ERR 
-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 
O3FC 00000 -ENTRY EDTSSCHK_CC, Save R2,R3,R4,R5,R6,R7,R8,R9 ; 0679 
59 00000000G 00 9€ 00002 MOVAB EDTS$$G_SECOND, R9 : 
58 00000000G 00 9€ 00009 MOVAB EDTS$$G_ ~Borke NT, RE& r 
57 444443 00 9E 00010 MOVAB EDTS$$G_CC “ent TM R7 F 
56 000000006 00 9€ 00017 MOVAB EDTSS$G~CC-FLAG, R6 : 
55 00000000G 00 9€ 4 93 MOVAB EDTSSA_FMT “WAROT, R5 3 
54 000000006 00 9€E 000 MOVAB EDTS$$G_PUT— 3 
53 000000006 3 9 4 MOVAB EDTS$$G_CC ENT. LO, R3 3 
69 D TSTL EDTSSG_ “SECON ; 0769 | 
42 1 4 BEQL $ 3 
68 06 00037 INCL EDT$$G_WORKCOUNT : 0772 
52 65 D0 00039 MOVL EDTSS$SA~ rat WRRUT, FORMAT_ROUTINE : 077 
65 000000006 00 9€E 4 MOVAB EDTSSTI_WRSTR, EDTSSA_FMT_WRRUT : 0774 
1A DD 0004 PUSH #26 ; 0775, 
7E 000000006 00 01 C1 O04 ADDL #1, EDT$$G_MESSAGE LINE, -(SP) : 
000000006 00 § 44 040 CALLS #2, EDTSSSC_POSCSIF 3 
OF 68 € 094 BLBC EDT$$G WO RKCOUNT, 1$ : 0777 
00000000G 8F DD 2? PUSHL bee $aoR : 
00000000G 00 1 e 3 D CALLS @ EDTSSMSG. TOSTR : 
7 1 64 BRB 2$ ; 
00000000G 00 00 FB 00066 1$ CALLS #0, EDTSSSC_ERATOEOL : 
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; Routine Size: 
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EDTSCHMCHKCC EDTSCHMCHKCC = check for control C 13-5e -1984 23:47:39 VAX-11 Bliss-32 V4.0-7 
04000 EDTSSCHK_CC = check for control C 1278 08=1 3b $3:35:33 DISKSVMSMASTER: tt i’sac CHMCHKCC.BLI; A we 
: 296 £63 ! END 
3 335 O8 64 
; 296 865 ) ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
; _EDTSCODE 235 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Peer ene Pe a ee ee == Symbols ococeeo= Pages Processing 
; File Total Loaded Percent Mapped Time 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 3 0 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
3 OL ESSA COCR OLE FELD INITIAL OPT IAL ZE) /NOTRACEBACEAL 151, 158s CHRCHECE/OBJ9OB IS « CHREMREE MSRC$: CHMCHKCC ..BLI /UPDATE=(ENHS$: CHMC 


3 size: 235 code + 0 data bytes 
; Run Time 00:15.2 

$ eoued Hass 00: Mee? 

3; Lines/CPU Min: 340 

3; Lexemes/CPU-Min: 9220 

: s 


ponety Weees 92 page 


Compilation Complete 
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